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LUCA NOVELLI 


MI PRIMER LIBRO DE 


EN LA PAGINA 4 
HAY UN BUEN PUNTO 
DE PARTIDA. $ 


EN LA PAGINA 8 
Í ESTA LA GRAMATICA 


DEL BASIC. 


Y EN 
LA PAGINA 62 
ENCONTRAREIS 
LAS INSTRUCCIONES 
PARA MANEJAR 

ESTE LIBRO. 


, 


EN LA PAGINA 12 
ESTA EL JUEGO 
DEL PROGRAMA. 


EMPIEZAN LoS 
VOCABLOS, LOS 
JUEGOS Y LOS 


JERCICIOS. ¡ES UN LIBRO 
MUY ESPECIAL, 


MUCHACHOS) 


EDICIONES GENERALES ANAYA 


Punto de partida 


Donde se descubre 
que el BASIC 

no es una lengua 
extraterrestre 


Unos CREEN 


QUE EL BA.S.1.C. 
ES UNA LENGUA MUY 


DIFÍCIL, QUE HABLAN 
LAS MAQUINAS. 


Y OTROS CREEN 
INTERGALÁCTICO. 


e 
A 


"EVIZASO)A 
ÍN9-!ddboo P 


SÍN EMBARGO EL BASIC La sigla BASIC es la abreviatura de Beginners' 


All-purpose Symbolic Instruction Code (Código 

ES EL LENGUAJE MÁS de instrucciones de uso universal para princi- 
DIFUNDIDO piantes). Comprende un vocabulario de más de 

DE LOS 200 términos que, en su mayoría, son muy co- 


rrientes en la lengua inglesa, tales como AND 
0 NADORES. (=y) PRINT (imprime) GOTO (=vete a), 
> dd LEFT (=izquierda), RIGHT (= derecha) y otros 

¡ muchos. 


Las PALABRAS DEL BASÍC 
sirven PARA DECIR 

AL ORDENADOR LO QUE 
DEBE HACER, O SEA, 
PARA PROGRAMARLO. 


ESCRIBE 
MI NOMBRE, 
¡"ADA"! 


e > 


a ¡AUNQUE 
oa DESGRACIA TODAVÍA LOS oro Los 
R , 

ORDENADORES A LA VENTA NO EFERIRÍA 


( E CON OREJAS! 
TIENEN OREJAS. LAS "ORDENES" 


SE TIENEN QUE ESCRIBIR 
CON EL TECLADO 


Y APARECEN EN PANTALLA. 


LAS "ORDENES" QUE DAÍS AL ORDENADOR 
SELLAMAN TAMBIEN INSTRUCCIONES" 

UNA LISTA DE INSTRUCCIONES 

FORMA UN PROGRAMA. 


¡Y 


) 
e ccomaas MUY CORTOS 
PUEDEN DESARROLLAR 


"TRABAJOS" MUY 

LARGOS Y COMPLICADOS. 
UN VIDEOJUEGO Y EL PLAN 
DE VUELO DEL SPACE 
SHUTTLE SON ] 
"PROGRAMAS... 


49 REM 
Lo PRINT 
30 INPUTAS 
AD sx 


APRENDEREIS LOS MAS 
IMPORTANTES VOCABLOS 
BASIC Y PODREIS HACER 
"DESARROLLAR A VJESTRO 
ORDENADOR PROGRAMAS 
BASIC. 


e HAYAIS 


TRANSCRITO 

UN PROGRAMA, LO 
PODRÉIS CONSERVAR 
Y UTILIZAR 
CUANTAS VECES 


QUERAIS. 


¡CaLCÚLAME 
EL MAXIMO 
COMÚN 


Ra DENOMINADOR! 


¡EN SEGUIDA) 
ADA | 
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¡Guivavo CON EQUIVOCAROS]! 
¡EL ORDENADOR ES PEDANTE 

Y PESADO! 

si EQUivoCAiS UN VOCABLO 
y OLVIDAIS UNA COMA, EL 

ORDENADOR NO OBEDECERÁ 
VUESTRAS ORDENES. 


Y EN EL MEJOR DE 
LOS CASOS INMEDIATAMENTE 


os SEÑALARA EL ERROR 
"DE SINTAXIS”: 


¡MAQUINITA 
ESTUPIDA! 


Un CONSEJO: 
es inúTIL QUE OS 
ENFADEIS CON UN 
ORDENADOR. 


ES UNA MAQUINA QUE HARA 
SIEMPRE Y SOLO LO QUE 
DIGAiS QUE HAGA, EN BASIC, 


NATURALMENTE. 


Gramática 
Basic 

Donde descubrimos 
que el ordenador 


obedece también 
al punto y coma 


B, BASIC QUIERE 

QUE LAS LÍNEAS DE LAS 
INSTRUCCIONES DADAS AL 
ORDENADOR ESTÉN NUMERADAS 


PROGRESIVAMENTE. 


Odvizk HABEIS NOTADO QUE 
VAN NUMERADAS DE 10 EN 10: 
ES UN TRUCO DE QUIENES 
PROGRAMAN Y ASÍ PUEDEN 
AÑADIR NUEVAS LÍNEAS 
EN EL ÚLTIMO MOMENTO. 


CON 
EL PROGRAMA, 
JUNTO CON INSTRUCCIONES, 
DAD AL ORDENADOR 

TAMBIÉN PALABRAS 
Y NÚMEROS. 


CADENA. Es una secuencia de caracteres (palabras, letras del 
alfabeto, símbolos gráficos y espacios vacíos) puesta entre co- 
millas. “¡AUGH!” es una cadena de seis caracteres. 

“LAS COMILLAS. El ordenador reconoce con ellas el principio 
y el final de una cadena que hay que imprimir o tratar de algún 
otro modo. 

CONSTANTES. Son los caracteres entre comillas y los valores 
numéricos que permanecen invariables en el programa. 


ÓN 
Y ÍNEA $ 


¿q a AA 


10 PRÍNT "A ucar 


LA LÍNEA 
40 DA LA ORDEN 
DE IMPRIMIR 
"LAUGH!" 


INDICA AL 
ORDENADOR QUE 
VUELVA A LA LÍNEA 
40 Y EMPIECE DE 


ORDEN PARA 
QUE SE PONGA EN 
MARCHA EL PROGRAMA. 


EL ORDENADOR 
RECONOCE TAMBIEN 

OTROS Si6NoS 
pe PUNTUACIÓN 


BASIC. 


; PUNTO Y COMA. Manda al ordenador que 
imprima a continuación también el contenido 
de la siguiente instrucción PRINT. 

, COMA. Manda al ordenador que ponga en 
columna los datos que se van a imprimir. Sirve 
también para dividir las variables de entrada. 

: DOS PUNTOS. Si al final de una instruc- 
ción hay dos puntos, se puede añadir otra ins- 
trucción en la misma línea. 

. PUNTO. Divide las unidades de los decimales. 
Por ejemplo, el número 167,61, el ordenador lo 
escribe 167.61. 


NO OLvViDÉiS 
QUE EL ORDENADOR 
ES SOBRE TODO 
UNA 
CALCULADORA. 


ASÍ QUE 
OBEDECE TODAS 
LAS ORDENES DE 
CALCULO QUE 

RECIBE. 


ÉSTOS SON PARA 
EL ORDENADOR 
ORDENES EN 
BASIC. 


SsiGNoOS 
DE SUMA 
Y RESTA 


SIGNO DE ELEVACIONA 
POTENCIA.USAREMOS 
EL SÍIGNOA. EN OTROS 
TECLADOS SE USAN 

DOS SIGNOS xk xd. 


SÍGNO DE 
MULTIPLICAR 


PARÉNTESIS 


SIGNO DE 
DIVIDIR 


SIGNO DE 
¡GUAL 


MAYOR QUE 
MENOR QUE 


EAS 
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MEMORIAS. El «cerebro» del ordenador tiene una parte lógi- 


LAS INSTRUCCIONES ca (CPU), que sabe contar y poner en orden los datos, y 


Y LAS “CONSTANTES” dos memorias, la ROM y la RAM. La ROM contiene las ins- 
ACABAN EN LA trucciones que hacen funcionar al ordenador; por ejemplo, 
MEMORIA DEL contiene los programas traductores de los lenguajes. En este 


caso es la que sabe «reconocer» el BASIC. Las celdillas de la 
RAM, por el contrario, albergan los datos y las instruccio- 
nes de vuestros programas. Éstos conceptos aquí recorda- 
dos fueron explicados con precisión y muy bien ilustra- 
dos en el libro del mismo autor, Luca Novelli, publicado 
en esta misma colección, Mi primer libro sobre ordenadores. 


ORDENADOR, Y SE 
SACARAN FUERA 
NEN EL MOMENTO 


p OPORTUNO. 
NS 


) 

(ae SE PUEDE DECIR AL ORDE- 
NADOR QUE PREPARE TAMBjÉN 
"CELDILLAS DE MEMORIA" PARA 
CONTENIDOS VARIABLES. 


A LOS NÚMEROS 
SE CREAN 


SENALANDOLAS 
CON LETRAS 
DEL ALFABETO. 


Las DESTINADAS A LoS 
CARACTERES(PALA- 
BRAS, SÍMBO- 
LOS, ETC.) SE 
CREAN 
SEÑALÁNDOLAS 
CON LETRAS 
DEL ALFABETO 
SEGUIDAS DEL SIGNO 
DEL DOLAR. 


DE CONSTANTES Y 
DE VARIABLES. 
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Un PROGRAMA 


PARA EL ORDENADOR 
ES ALGO ASÍ COMO EL 
JUEGO DE LA OCA. 


CUANDO LE 
DAIS LA ORDEN DE 
PONERSE EN MARCHA, Y 
EMPIEZA A REALIZAR 
TODAS LAS INSTRUCCIO-/l 
NES QUE ENCUENTRAL 


. 


EN LA LÍNEA 
20 ENCUENTRA 
PRINT(=¡MPRiME) 

YESCRIBE EN LA 

PANTALLA LO QUE 

HAY ENTRE 


40 ENCUENTRA 
REM(=0BSERVACIONES) 
DA UN VISTAZO Y 
SsiGUE ADELANTE. 


NCUENTRA LA ORDEN 
GOTO( VETE A) 90, Y 
EN SEGUIDA SALTA A 
LA LÍNEA 90. 


O VETE A 
LUEG AN] VES 


8 
LA FRASE ENTRE 
COMILLAS Y 
LUEGO PROSIGUE 


LLEGAA A 
END (=FIN) SE 
PARA: EL 
PROGRAMA HA 
TERMINADO. 
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EN LA LÍNEA 
40 EL ORDENADOR 
ENCUENTRA LA ORDEN 
LET(GPON) B=18Y 
ASIGNA EL VALOR 48 A 
LA "VARIABLE" B,, 


INPUT (= ENTRADA) y 
ESPERA DE VOSOTROS 
UN NÚMERO QUE 
ASIGNARÁ A LA 
“VARIABLE” A. 


TIÍENE QUE 
ESCOGER. 


Si (=iF) EL 
>S/ CONTENIDO DEA 
Y ES MENOR QUE (<>) 
8, ENTONCES(=THEN) 
HAY QUE ¡R ALA 
LÍNEA 80. 


DE LO CONTRARIO 
é VETE A LA 
LÍNEA SIGUÍENTE, 
LA 60. 


TAMBIEN LOS 
PROGRAMADORES; 
ANTES DE ESCRIBIR 
UNA LISTA DE 
INSTRUCCIONES, 


DE"JUEGO DEL 
PROGRAMA!" 


20 


3 


NO ES VERDAD 


(0) hr 
10 
A 
50 SI ES VERDAD 
AAN 
ENTONCES 


DIAGRAMA DE FLUJO. Lo llaman también «flow chart» o 
diagrama en bloques. Es la forma gráfica más sencilla para 
describir el esquema de un programa. Cada bloque da lugar 
a una línea de instrucciones. Si el ordenador tiene que tomar 
una decisión, los bloques se representan por un rombo. Las 
eii GOTO (=vete a) se representan con una 
echa. 


YO LO LLAMO 
DIAGRAMA 
DE FLUJO. DIAGRAMA DE 

FLUJO QUIERE DECIR: 

DIVIDIR UN PROBLE MA 

EN MUCHOS PASOS 

CORTOS, POR LO QUE 
HASTA UN CABEZON 

*C DE ORDENADOR 

PUEDE 

ENTENDER. 


PRINT"ME GUSTAN 
| LOS JOVENCITOS" 


CON LOS PREAMBULOS 
Y VAMOS ALLA CON 


NUESTRO DiccioNARio 
DE BASIC. EMPEZAMOS 


POR AND, 


PERO BASTA YA 


AND €= y). Es una «conjunción» también en BA- 
SIC. El ordenador obedece a la instrucción sólo 
cuando las condiciones puestas por A AND (y) 
B son verdaderas. En todos los demás casos el 
ordenador no hace nada y pasa a la línea si- 
guiente. 


PROGRAMITA 
DE BIENVENIDA 


Muchos niños vienen a hacer una visita a Mar- 
ko para ver y probar su ordenador. Por eso 
Mako ha escrito este pequeño programa para 
dar la bienvenida a sus amigos. Pero sólo si 
A$="SI” y B5="SI”, el ordenador hará los ho- 
nores de la casa, de lo contrario... 


10 REM PROGRAMA DE BIENVENIDA 

20 PRINT “HOLA,SOY EL. ORDENADOR DE MARKO" 
30 PRINT “TU QUIEN ERES?" 

40 INPUT N$ 

50 PRINT "HOLA "¿N$;" MUCHO GUSTO EN CONOCERTE" 
60 PRINT "TE GUSTAN LOS ORDENADORES?" 

70 PRINT "RESPONDE SI O NO" 

80 INPUT As 

90 IF A$="SI" OR A$="NO" GOTO 110 

100 GOTO 70 

110 PRINT “QUIERES. APRENDER BASIC?" 

120 PRINT “RESPONDE SI O NO" 

130 INPUT Bs 

140 IF B$="SI" OR B$="NO" GOTO 160 

150 GOTO 120 

160 IF A$="SI" AND B$="SI" GOTO 1380 

170 PRINT "VETE AL. CUERNO! ":¿N$:END 

180 PRINT “BIENVENIDO ENTRE NOSOTROS "¿N$ 


ASC (de ASCII). Indica al ordenador que con- 
vierta un carácter (una letra, un símbolo, etc.) 
en un número. No será un número cualquiera, 
sino el número correspondiente del código 
ASCII. No es un vocablo BASIC universal; el 
Spectrum, en lugar de ASC, usa CODE. 


EN BUSCA 
DEL CODIGO ASCII 


ASCII deriva de las iniciales de American Standard Code for Information Inter- 
change (Código americano standard para el intercambio de informaciones). Ya 
es un código internacional que representa letras y números con secuencias de 
ocho bit (cero y uno). Las posibles secuencias de ocho bit son 256 (28) y, por 
tanto, pueden codificar 256 caracteres, símbolos gráficos, etc. Los números 
que descubriréis con nuestro ejercicio son la forma decimal de estas secuen- 
cias de números binarios. Por ejemplo, el número de código ASCII de la A es 
65, y representa en forma decimal el número binario 01000001. 


CHR$ (de character = carácter). Convierte nú- 
meros en caracteres (letras, símbolos, etc.). Esto 
es, realiza la operación inversa de ASC. Siguien- 
do en el ejemplo, PRINT CHR$ (65) visualizará 
la letra A, como está previsto en la tabla del 
código ASCII. 


REM EL CODIGO ASCII 
CLS:PRINT:PRINT 
PRINT“PULSA :":PRINT 
PRINT" 1 PARA VER LA TABLA ASCII":PRINT 
PRINT" 2 PARA VER LA CORRESPONDENCIA" 
PRINT" CARACTER — CODIGO": PRINT 
PRINT" 3 PARA VER LA CORRESPONDENCIA" 
PRINT" CODIGO — CARACTER":PRINT 
PRINT" 4 PARA TERMINAR" 

INPUT S 

ON $ GOTO 130,190,290,410 

CLS 

FOR I=1 TO 255 

PRINT CHR$C(I),1 

NEXT 1 

PRINT"PULSA RETURN PARA CONTINUAR" 

INPUT As 

IF A$=""GOTO 20 

CLS:PRINT 

PRINT“INTRODUCE EL CARACTER DEL QUE QUIERES VER EL CODIGO" 
INPUT C$ 

PRINT:PRINT 

PRINT"AL CARACTER "3C%;" CORRESPONDE EL CODIGO ASCII"¡ASC(C$) 
PRINT:PRINT 

PRINT"QUIERES VER OTRO ?" 

INPUT A$ 

IF A$="SI" GOTO 1%0 

GOTO 20 

CLS:PRINT 

PRINT"INTRODUCE EL CODIGO (COMPRENDIDO ENTRE 1 Y 255) DEL QUE" 
PRINT"QUIERES VER EL CARACTER CORRESPONDIENTE" 

INPUT C 

IF C<1 OR C>255 GOTO 290 

PRINT:PRINT 

PRINT"AL CODIGO “¿C;¿ "CORRESPONDE EL CARACTER "¿CHR$(C) 
PRINT:PRINT 

PRINT"QUIERES VER OTRO ?" 

INPUT A$ 

IF A$="SI" GOTO 290 

GOTO 20 

CLS: END 
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CLS (de CLear the Screen = despeja la pantalla). 
Indica al ordenador que quite todo lo que hay 
en la pantalla. No es un vocablo BASIC univer- 
sal; por ejemplo, Apple tiene HOME; VIC 20 y 
COMMODORE 64 tienen PRINT «¡SHIFT CLR 
HOME)». 


EL SECRETO 
DE LOS VIDEOJUEGOS 


La orden CLS (o sus equivalentes) es el secreto de la animación en los video- 
juegos. El principio es muy sencillo: se da al ordenador la orden de imprimir 
(PRINT) un punto o un símbolo gráfico, inmediatamente después se le da la 
orden de borrarlo (CLS) y luego de reimprimirlo un poco más adelante. De 
esta forma, ante nuestros ojos se crea la ilusión Óptica de que el punto se 
mueve en la pantalla. En realidad son muchos nuevos puntos que inmediata- 
mente después se borran. 


LUEGO ME 
BORRAN 
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DATA (= datos). Prepara datos, números o ca- 
denas. Estos datos luego se asociarán a las va- 
riables indicadas por la instrucción READ (= lee). 
Una tercera instrucción, RESTORE (=restable- 
ce), indicará al ordenador que reponga todo en 
las condiciones iniciales de DATA. 


LOS MESES DEL AÑO 


DATA se encuentra siempre junto con READ y RESTORE, 
formando una sola instrucción de asignación. En nuestro 
ejemplo, DATA «prepara» los meses del año, que luego se 
asocian por READ a la variable Mf$. La tercera instrucción, 
RESTORE, indicará al ordenador que reordene todo como 
estaba en la primera línea de DATA, permitiéndonos seguir. 


10 DATA ENERO, FEBRERO, MARZO, ABRIL 

20 DATA MAYO, JUNTO, JULIO, AGOSTO 

30 DATA SEPTIEMBRE, OCTUBRE, NOVIEMBRE, DICTEMBRE 
40 CLS:PRINT"DAME UN MES EN HUMERO" 

50 INPUT PH 

50 MelnT  <m 

70 IF M<1 OR Mi 
80 FOR X=1 TO M 
90 READ M% 

NEXT X 
PRINT:PRINT M3 
RESTORE 
PRINT:PRINT"QUIERES SEGUIR %" 
INPUT As 

IF A$="SI" GOTO 40 

END 


GOTO 40 


DEF FN (de DEFine FunctioN = Definir función). 
Permite definir nuevas funciones matemáticas y 
encerrarlas en la función FN. En caso de repeti- 
ciones, por ejemplo, permite ahorrar tiempo y 
reducir la posibilidad de error. 


QUÍERO QUE 
ESTA ECUACION 
SE HAGA 

PEQUEÑA Y 
MANEJABLE. 


REM DEFINE UNA FUNCION COMPLICADA 
DEF FNY (XxX) = (SIN (O Xx 0 (COS (AX AX COR 0 
REM AHORA SE PUEDE USAR LA FUNCION CUANTAS 
REM VECES SE QUIERA EN EL. MISMO PROGRAMA 
CL 
PRINT¿PRINT"INTRODUCE UN VALOR PARA LA VARIAELE X" 
INPUT Xx 
Y=FNY  (X) 
Ze (ENYOOIS2 
PRINT"UX  = "3X¿"Y = "qY,"Z = "yz 
PRINT:¿PRINT"“QUITERES CALCULAR OTROS VALORES 2" 
INPUT As 
IF A$="S51" GOTO 40 
END 


DIM (de DiMension = dimensión). Indica al or- 
denador que dé las dimensiones a un determi- 
nado espacio de memoria y que lo conserve 
en cadenas de caracteres, que no se podrían 
contener en una «variable» individual. 


RESERVADO 
RESERVA DO 


¿QUEREIS QUE VUESTRO 
ORDENADOR ESCRIBA 
LOS CUADROS? 


Con este programita el ordenador 
escribirá en la pantalla el cuadro 
que queráis hasta el del 10. 


10 REM CUADROS 
0 DIM T(10,10) 
30 FOR J=1 TO 10 
40 FOR K=1 TO 10 
A TS 

560 NEXT Kk 

70 NEXT J 

80 CLS:¿PRINT"QUE CUADRO QUIERES VER?" 
90 INPUT I 

100 IF 1<0 OR 1>10 GOTO 830 

110 PRINT 

120 FOR L=1 TO 10 

130 PRINT T(I,L) 

140 NEXT L 

150 PRINT:¿PRINT"QUIERES VER OTRO?" 
160 INPUT As 

170 IF A$<>"SI" AND A$X+"NO" GOTO 150 
180 IF A$="SI" GOTO 80 

190 END 
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END (= fin). Indica al ordenador que el progra- 
ma ha terminado y ns no prosiga adelante, o 
sea que no haga nada más. En el lenguaje BA- 


SIC es indispensable sólo en algunos casos. Al- 
gunos ordenadores en lugar de END usan 
STOP. 


LA RULETA ELECTRONICA 


¿Tenéis suerte en el casino? Podéis verificarlo con este pro- 
gramita. El ordenador sacará un número entre el O y el 36. 
¡Suerte! 


10 REM RULETA ELECTRONTOA 

20 N=INT (RD (3730) 

30 CLS 

40 PRINT¿PRINT"APUESTA A UN NUMERO ENTRE 1 Y 36" 
30 INPLÍT 7 

60 1F T=N. THEN PRINT"HAS GANADO "END 

7O PRINT"HAS PERDIDO !" 

80 560TO +0 

20 END 


UN CONSEJO: 
¡JUGAD 
SOLO 
CARAMELOS]! 


FOR/TO/NEXT (= para/al/siguiente). El ordena- 
dor cumplirá las instrucciones puestas entre 
FOR, TO y NEXT hasta que la «variable de ci- 
clo» alcance el valor indicado. En el ejemplo, la 
«variable de ciclo» es K y deberá alcanzar el va- 
lor N que habéis introducido. 


UN PROBLEMITA PARA GAUSS 


El jovencito Karl Friedrich Gauss estaba destinado a convertirse en un gran 
matemático. De pequeño tuvo un maestro muy antipático, que le mandó, 
como castigo, el ejercicio de sumar todos los números enteros comprendidos 
entre 1 y 100. Gauss lo resolvió con una sola operación. Vosotros se lo podéis 
mandar resolver al ordenador con este programita. 


10 CLS:PRINT"SUMO LOS NUMEROS HASTA 2" 

20 INPUT N 

30 S5=0 

40 FOR K=1 TO N 

50 S=S+k 

60 NEXT K 

70 PRINT:PRINT"LA SUMA DE LOS PRIMEROS ENTEROS VALE 2"; 
END 


E 
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, MIRA 
COMO SE 
CONSTRUYO 
EL PROGRAMA PARA 
VUESTRO 
ORDENADOR. 


¿Y COMO _RESOLVIO SU PROBLEMA 
EL PEQUEÑO GAUSS? 


Gauss se dio cuenta de que la suma del primer número con el último, 1 y 
100, del segundo con el penúltimo, 2 y 99, del tercero con el antepenúltimo, 
3 y 98, y así sucesivamente, daba siempre como resultado 101. Dado que 
las parejas son 50, multiplicó 101 x 50 y resolvió el problema en un santia- 
mén, con gran consternación del antipático maestro. 


ÍGAUSS 
GANA AL 
ORDENADOR 


0 POR UNO A 
CEROlÍ 


FOR/TO/STEP/NEXT (step = paso). El ordenador 
realizará cíclicamente las instrucciones entre 
FOR/TO y NEXT hasta que la «variable de ciclo» 
no haya alcanzado el valor indicado. El incre- 
mento es de 1, salvo que se indique el paso 
(STEP). En nuestro ejemplo es 2. 


EL ORDENADOR 
Y LOS NUMEROS PRIMOS 


Vuestro ordenador encontrará todos los números primos 
comprendidos entre 3 y N con este programita. 


REM NUMEROS PRIMOS 
20 CLS:PRINT"BUSCO LOS NUMEROS PRIMOS COMPRENDIDOS ENTRE 3 Y 2" 
30 INPUT N 

40 FOR K=3 TO N STEP 2 

50 P=0 

60 M=INT(K/2) 

70 REM CONSIDERO LOS POSIBLES DIVISORES ENTRE 2 Y K/2 

80 FOR J=2 TO M 

90 IF K/J=INT(K/JD) THEN P=1 

100 NEXT J 

110 IF P=1 GOTO 130 

120 PRINT K 

130 NEXT Kk 

END 
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ASÍSE | 
CONSTRUYO 
EL PROGRAMA 


PARA BUSCAR 
LOS NÚMEROS 
PRIMOS. 


UN 
PROGRAMA 


GO SUB (=vete al subprograma). Los progra- 
mas más complejos pueden estar compuestos 
por un programa principal y varios subprogra- 
mas. Cuando el ordenador encuentra GO SUB, 
deja el programa principal y va al subprograma 
indicado. Para volver al programa principal el or- 
denador tiene que encontrar la orden RETURN. 


EL JUEGO 
MAS ANTIGUO DEL MUNDO 


El juego NIM es, quizá, uno de los e conocidos más an- 
tiguos. Se juega con doce cerillas o doce piedras. Nosotros 


jugaremos como los antiguos chinos, con doce monedas en 
tres filas. Los jugadores cada vez cogen de una sola fila una 


O varias monedas. Gana el jugador que coge la última. 


REM EL JUEGO DE NIM 
DIM A(3) 
A(1)=3 
E A(2)=4 
HE AQUI rd 
EL PROGRAMA REM IMPRIME LA CONFIGURACION 
PARA JUGAR AL GOSUB 330 ] ] ] : : 
Nim PRINT:PRINT"DIME LA LINEA Y El NUMERO DE MONEDAS" 
JUEGO DEL INPUT F,N 
CONTRA EL ) REM CONTROLO DATOS 
20 IF F>3 GOTO 170 
ORDENADOR. 30 IF N<=A(F) GOTO 200 
IF A(F)=0 GOTO 170 
PRINT:PRINT"EL NUMERO DE MONEDAS NO ES CORRECTO" 
GOTO 90 
PRINT:PRINT"LA LINEA NO ES VALIDA" 
soTo 90 
REM COJO LAS MONEDAS 
GOSUB 490 
IF C=1 GOTO 240 
PRINT:PRINT"HAS GANADO TU" 
GOTO 340 
GOSUB 380 
F=INT((34RND) +1) 
IF A(F)=0 GOTO 250 
REM F ES IGUAL. A UNA DE LAS TRES LINEAS 
N=INT((A(F)XRND) +1) 
PRINT:PRINT"AHORA JUEGO YO. LINEA “"¿F¿"MONEDAS “¿N 


¡PERO AL A00 buen sua 
ORDENADOR NO IF C=0 GOTO 330 


20 GOTO 80 
sE LE eS) : PRINT:PRINT"HE GANADO YO" 


PRINT"QUIERES SEGUIR JUGANDO? SI/NO" 
INPUT R$ 

IF R$="SI" GOTO 30 

GOTO 570 

REM SUBPROGRAMA PARA IMPRIMIR LAS LINEAS 
PRINT 

FOR J=1 TO 3 

PRINT Jano; 

IF A(J)=0 GOTO 460 

FOR K=1 TO A(J) 

PRINT"O "; 

NEXT K 

PRINT 

NEXT J 

RETURN 

REM SUBPROGRAMA PARA COGER LAS MONEDAS 
c=0 

A(F)=A(F)=N 

FOR K=1 TO 3 

IF A(K)=0 GOTO 550 

C=1 

NEXT K 

RETURN 

END 


GO TO (= vete a). Indica al ordenador que pro- 
siga el programa a la línea indicada, que puede 
ser para adelante o para atrás. Se llama también 
instrucción de salto condicionado. Pues, cuan- 
do el ordenador la encuentra, el ordenador tie- 
ne que ir siempre a la línea indicada después de 
GO TO. 


EUCLIDES Y EL MAXIMO 
COMUN DIVISOR 


Euclides es el inventor del algoritmo para 
calcular el M.C.D. de dos números. Es una 
«receta» que se puede expresar con las si- 
guientes reglas: 

- Si A y B son dos números y A es mayor 
que B, se divide A por B, y R es el resto. 

— Si R es igual a cero, B es el M.C.D. 

— Si R no es igual a cero, se sustituye A por 
B, y B por R, repitiendo el proceso desde 
el principio. 

He aquí transformados en instrucciones 

BASIC los pasos del algoritmo de Euclides. 


REM CALCULO DEL M.C.D. 
20 CLS:PRINT"PON LOS DOS NUMEROS QUE QUIERAS" 
30 PRINT"CALCULAR EL MAXIMO COMUN DIVISOR" 

40 INPUT A,B 

50 IF A>B GOTO %0 


o 

a] 

= 
1 


A 
80 B 
Q= INT (A/B) 
A-B*Q 
R=0 GOTO 150 


1MUNMIRAXD> 


m 


- 
o 
[as] 
Donmán 


130 B=R 
140 GOTO 90 

150 PRINT:PRINT"MAXIMO COMUN DIVISOR = "¡¿B 
END 


La instrucción 30 pregunta si A es mayor 
que B; si así fuere, salta a la instrucción 70; 
en caso contrario continúa con las siguientes 
instrucciones, en las que, usando un campo 
de comodín T, se intercambian los valores 
A y B. En los BASIC más avanzados se pue- 
de escribir más de una asignación en la 
misma línea, separándolas con ”:”; luego, en 
lugar de 40-50-60, se podía haber escrito: 
40 T=A:A=B:N=T. 


Las instrucciones 70-90 calculan el cociente y el resto de la 
división de A y B. Si el resto es igual a cero, la operación ha 
terminado y se pasa a la instrucción PRINT; en caso contra- 
rio, se pone A=B B=R y se empieza de nuevo desde la 70, 
como prescriben las reglas del algoritmo. 


HASTA 
EUCLIDES, SÍ 
HUBIERA TENIDO 
UN ORDENADOR, ANTES DE 
ESCRIBIR EL PROGRAMITA 
EN BASIC, HABRÍA 
DISEÑADO ESTE 

DIAGRAMA DE 


NO 
sí 
S| 
NO 
V ¡qué y 
AÑ BARBARIDAD 


| ESTE EUCLIDES--. 
HASTA SIN 
ORDENADOR] 


ANY] 


SEAS 
MOT 


IF (si). Pon el ordenador ante una elección 
que dependa de una condición. Si ésta se cum- 
ple, entonces (THEN) hace algo o va a (GO 
TO) otra línea. En nuestro ejemplo, cuando 
A$5="“si”, entonces el ordenador «salta» tres lí- 
neas más abajo y escribe el animal que habíais 
pensado. 


EL ORDENADOR 
ADIVINO 


Con este programita podéis «enseñar» a 
vuestro ordenador que acierte un animal 
que habéis pensado. Ojo, fijaos bien cómo 
está construido. Hemos puesto también «un 
ciclo de espera», que no es nada más que 
un ciclo FOR/TO/NEXT en vacío, hecho sólo 
para que no espere el ordenador. 


REM El. ORDENADOR ADIVINO 
CLS:PRINT"PTENSA EN UN ANIMAL.“ 
PRINT“ENTRE ESTOS TRES" 
PRINT"ARANA TIGRE SERPIENTE" 
FOR I=1 TO 3000 ¿NEXT 1 
PRINT"YA LO HAS PENSADO 2" 
INPUT Rs 

IF NOT R$="SI" THEN GOTO 50 
PRINT"CONTESTA A ESTAS PREGUNTAS" 
PRINT"HACE TELERANAS 2" 

INPUT As 

IF A$="SI" THEN GOTO 170 
PRINT"ES UN MAMIFERO?" 

INPUT A$ 

IF A$="SI" THEN GOTO 180 


PRINT"HAS PENSADO EN LA SERPIENTE" :GOTO 


PRINT"HAS PENSADO EN LA ARANA" :GOTO 
PRINT"HAS PENSADO EN EL TIGRE":GOTO 
END 


190 


190 
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E 
u 


ENTONCES 


¡VAYA 
ADIViNo! 


HACEDLO VOSOTROS 


Si habéis entendido cómo funciona el programita de la página anterior, 
fácilmente podréis cambiar los animales que el ordenador puede «acer- 
tar». También podréis alargar el programa, haciéndole conocer otros ani- 
males, incluso todos los dibujados en esta página. Para hacerlo aún más 
misterioso, os aconsejamos que pa pi al principio del programa y 
antes de cada pregunta una línea con la orden CLS (o la que correspon- 
da en vuestro ordenador). Así, cada vez se limpiará la pantalla y dará 
la impresión de que el ordenador dialoga con vuestros amigos. Será 
el primer videojuego hecho completamente por vosotros. ¡Que os di- 
virtáis! 


¿iNCUBA 


HUEVOS? 


ELSE (= en caso contrario). Permite al ordenador 
hacer dos cosas después de una elección: si (IF) 
se cumple la condición, entonces (THEN) hace 
una cosa; en caso contrario (ELSE) hace otra. En 
nuestro caso, si Q = 3, entonces debe ir a la lí- 
nea 290; en caso contrario, a la línea 100. 


1F GOTO 
19 THEN 


OTRO JUEGO 


El ordenador «piensa» un número de tres ci- 
fras y tú debes acertarlo. ¡Animo, quizá te 
ayude! 


REM ACIERTA UN NUMERO DE TRES CIFRAS 
DIM M(3),T(3),B$ (3) 
CLS 
REM NUMERO DE JUGADORES ENTRE 3 Y 10 
G=INT ((RNDx*7) +3) 
C=0 
REM TRES CIFRAS AL AZAR ENTRE 0 Y 9 
FOR K=1 TO 3 
M(K)=INT (RND*10) 
NEXT K 
C=C+1 
IF C>G THEN 320 
PRINT:PRINT"JUGADA N.  :"3C EN CASO 
PRINT"INTRODUCE TUS CIFRAS" 7 
INPUT T(1),T(2),T(3) CONTRARIO 
REM CONTROL DE EXACTITUD 
B$ (1)="NO":B$(2)="NO":B$(3)="NO":Q=0 - 
FOR P=1 TO 3 SI EL 
FOR K=1 TO 3 
IF M(K)=T(P) AND K=P THEN 230 RANCHO ES BUENO, 


LE MU) 8T CP) AND K<>P THEN B$(P)="NO" ENTONCES 0.K. 
Q=0+1:BS(P)="SI":GOTO 250 EN CASO CONTRARIO 
NEXT P ME PONGO A 
REM COMPRUEBO EL RESULTADO 

PRINT "  "¡BS(1)¡B%(2);BS(3) 

REM CONTROLO EL NUMERO DE CIFRAS CORRECTAS 

IF 0=3 THEN 300 ELSE 110 

PRINT"HAS ACERTADO EL NUMERO" 

GOTO 340 

PRINT"NO HAS ACERTADO EN EL LIMITE DE “¿G;" JUGADAS" 

PRINT“MI NUMERO ERA: “"¿M(1)¿M(2)¿M(3) 

PRINT“QUIERES SEGUIR JUGANDO % SI/NO" 

INPUT S$ 

IF S$="SI" THEN 30 

END 


INPUT (= entrada). Indica al ordenador que pida 
datos de fuera. Cuando encuentra esta instruc- 
ción, se para y espera que le escribáis con el 
teclado los números o las palabras que necesi- 
ta. En el ejemplo espera los porcentajes de an- 
hídrido sulluroso y la hora de las sustituciones. 


PROFESIONALES 
DE LA CONTAMINACION 


La contaminación se mide tomando a in- 
tervalos más o menos fijos la cantidad de an- 
hídrido sulfuroso que hay en la atmósfera. El 
problema consiste en calcular la media de 
cada intervalo de tiempo y la media ponde- 
rada de las medias. 

He aquí el programita que resuelve el pro- 
blema: 


10 REM CONTAMINACION 

20 CLS:PRINT"CUANTAS TOMAS HAS HECHO 2" 
30 INPUT N 

40 REM V=VALORES TOMAS T=TIEMPOS 

50 DIM V(N),T(N> 

60 PRINT" INTRODUCE LOS VALORES Y LA HORÁ DE LAS TOMAS :" 
70 FOR K=1 TON 

80 INPUT V(K),TCK) 

90 NEXT Kk 

100 S=0:PRINT 

110 FOR K=1 TO N-1 

120 REM MEDIA 


130 M= (V(K)+V(K+1))/2 | NATURALMENTE, 

140 PRINT"MEDIA INTERVALO “¿T(K)5T(K+103% = "3M TODO SERÍA 
a MAS SENCILLO Si 

170 NEXT Kk NO , a 
180 P=S/(T(N)-T(1)) CONTAMINASEMOS 


190 PRINT:PRINT"MEDIA PONDERADA :“P 


200 END EL AIRE! 


INT (de INTeger = entero). Indica al ordenador 
que calcule sólo la parte entera de un número, 
la anterior al punto. Por ejemplo, INT (57.79) es 
57. Ojo, en los casos de números negativos 
INT calcula el valor entero inmediatamente in- 
ferior. Por ejemplo, INT (-5.3) es 6. 


MARKO Y EL MINIMO 
COMUN MULTIPLO 


Marko en el colegio debe calcular, a menudo, 

el mínimo común múltiplo de dos números. 

Es algo que odia. Y por esto ha construido un 

programa para que el ordenador lo haga por 

él. Ha empleado este algoritmo para cons- 
truirlo: 

— Si A y B son dos números en los que A es 
mayor que B, y A es divisible por B, enton- 
ces A es el m.c.m. 

- En caso contrario, hallaremos el múltiplo 
más pequeño de B que sea mayor que A. 

— Si éste es también múltiplo de A, habremos 
encontrado el m.c.m. 

— En caso contrario, buscaremos el siguiente 
múltiplo de B repitiendo el procedimiento. 


10 REM CALCULO DE MINIMO COMUN MUL.TIPLO 
20 CLS:PRINT"INTRODUCE LOS DOS NUMEROS" 
30 INPUT A,B 

40 IF A>B GOTO 60 


60 IF A/B=INT(A/B) GOTO 130 

70 D=INT(A/B) 

80 D=D+1 

90 M=D*B 

100 R=M-A* INT (M/4) 

110 IF R<>0 GOTO 80 

120 A=M 

130 PRINT"MINIMO COMUN MULTIPLO: — "¿A 
140 END 


a Q 
¡SENTIDO 
DEL NEGOCIO! 
¿EH? 


La instrucción 40 intercambia los valores de A 
y B, en caso de que B sea mayor que A. 


LEFT$ (= izquierda). Indica al ordenador que ex- 
traiga la parte más a la izquierda de una cade- 
na. Si A$= “Plotter”, LEFT$ (A$,3) es “PLO”. En 
el Spectrum LEFT$ se omite, y se escribe A$ 
(1 TO 3). En el ejemplo de abajo, LÉFT$ extrae 
la primera cifra a la izquierda del número «tra- 
ducido». 


LOS NUMEROS ROMANOS 


Este es el programa que traduce los números 
comprendidos entre 1 y 1.000 en las cifras 
que usaban los antiguos romanos. 
Recordemos que: 


|=1 Il=2 Ill=3 IV=4 V=5 VI=6 VIl =7 
Vill=8 IX=9 X=10 XL=40 L=50 LX=60 
XC=90 C=100 CX=110 CL=150 
CLX = 160 D = 500 DL = 550 M= 1.000. 


REM CONVERTIMOS EN NUMERO ROMANO 
20 DIM V$(3,9) 

30 DATA I,II,III,IV,V,VI, VII, VIII, IX 
40 DATA X,XX,XXX, XL ,L,LX,LXX,LXXX,XC 
50 DATA C,CC,CCC,CD,D,DC,DCC,DCCC,CM 
60 FOR I=1 TO 3 

70 FOR J=1 TO 9 

80 READ V$(1,J) 

90 NEXT J 

100 NEXT 1 

110 CLS:PRINT"INTRODUCE UN NUMERO DECIMAL" 
120 PRINT"MENOR O IGUAL A 1000" 

130 INPUT N 

140 IF N>1000 GOTO 120 

150 N$=RIGHTS (STR$ (N) ,LEN(STR$ (N))-1) 
160 L=LEN(NS) 

170 IF L=4 GOTO 280 

180 R$=" " 

190 FOR K=L TO 1 STEP -1 

200 O$=LEFTS$(N$,1) 

210 Q=VAL (04) 

220 IF Q=0 GOTO 250 

230 R$=R$+V$ (K,0) 

240 N$=RIGHTS (N$,K-1) 

250 NEXT K 

260 GOTO 290 

270 REM R$=M CUANDO N=1000 


280 R$="m" 
290 PRINT"EL NUMERO DECIMAL :  "¿N 
300 PRINT:PRINT"EN NUMERO ROMANO SE EXPRESA : "¿R$ 


END 


LEN (de LENght = longitud). Indica al ordenador 
que cuente los caracteres que hay en una cade- 
na. Cuenta también los espacios vacíos. LEN 
(“W PLOTTER”” es 9. 

En nuestro ejemplo usamos LEN en la línea 40. 


Y AHORA INVENTEMOS 
PALABRAS 


Escribamos una «cadena» de caracteres S$. Indi- 
caremos al ordenador que la invierta y que nos 
diga también si es igual a sí misma leyéndola de 
derecha a izquierda o al revés. 


CLS:PRINT" INTRODUCE UNA CADENA DE CARACTERES" 
20 INPUT S$ 

30 A$=5$ 

40 L=LEN(S$) 

50 FOR K=1 TO L 

60 A$=LEFTS (A$,L-K+1) 

70 R$é=RIGHTS(A4$,1) 

380 B$=E4$+R$ 


90 NEXT K 
100 PRINT:PRINT"CADENA INTRODUCIDA "¿3S$ 
110 PRINT:PRINT"CADENA INVERTIDA "sB$ 


120 IF B+<>S$ GOTO 150 

130 PRINT:PRINT"LA CADENA ES IDENTICA EN LOS DOS SENTIDOS" 
140 GOTO 160 

150 PRINT:PRINT"LA CADENA NO ES IDENTICA EN LOS DOS SENTIDOS" 
1650 END 


¡SIEMPRE 
ME METEN 


La instrucción 40 calcula la longitud de la cade- 

na S$. Este valor L se usa más tarde en la repe- 

tición como límite superior por K. 

La instrucción 60 considera la cadena de apoyo 

A$ y saca (L—K-+ 1) los elementos más a la ¡z- 

his la 70 pone en R$ el elemento más a la 
erecha de A$. 
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LET (=siendo que). Indica al ordenador que 
asigne un valor a una variable (por ejemplo, LET 
A= 5). Además, se puede usar para asignar a 
una variable también una expresión entera, 
como en nuestro ejemplo. LET se puede omitir 
y el ordenador lo entenderá. 


¿QUIEN LLEGARA ANTES? 


Ada y Marko se van de vacaciones juntos, 
pero en dos coches distintos. Marko en el 
coche número 1 y Ada en el número 2. 
¿Quién llegará antes? Se admiten apuestas. 


10 REM QUIEN LLEGARA ANTES? 
20 CLS 

30 PRINT:¿PRINT"INTRODUCE LA DISTANCIA A CORRER 2" 

40 INPUT D 

50 PRINT:PRINT" INTRODUCE LAS VELOCIDADES 2" 

60 INPUT V1,V2 

71) PRINT:PRINT" INTRODUCE LAS HORAS DE LAS SALIDAS 1" 
80 INPUT T1,T2 

90 LET R=D/Vi+T1 

100 LET S=D/V2rT2 

110 17 RS GOTO 150 

120 1F R>5 GOTO 170 

130 PRINT:¿PRINT"LLEGAN JUNTOS" 

140 GOTO 180 

150 PRINT:PRINT"EL COCHE NO. 1 LLEGA ANTES" 
160 GOTO 180 

170 PRINT:PRINT"EL COCHE NO. 2 LLEGA ANTES" 
180 END 


¡ DESPACIO, 
PIENSA EN 
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LIST (= hacer una lista, «listar»). Manda al orde- 
nador que muestre el programa. Por sí solo LIST 
visualiza todo el programa. Tras el número de 
la línea aparece la línea indicada. Inmediata- 
mente después de las dos líneas visualiza la «lis- 
ta» de líneas comprendida entre los dos núme- 
ros pedidos. 


100 GO TEX 70 
119 FOWL-K:1 


CUANDO 
UN PROGRAMA 
NO VA ADELANTE, 
ADA Y MARKO USAN 
LIST PARA REVISARLO 


LOS Y DESCUBRIR 
EXPERTOS LLAMAN LOS ERRORES 
A ESTA OPERACION COMETIDOS. 
"DEBUGGING"= 


ESPULGAMIENTO 


LOAD (= cargar). Manda al ordenador que car- 
gue en su memoria un programa que previa- 
mente habéis «salvado» en un cassette o en un 
disco magnético. Después de LOAD hay que 
poner el nombre del programa para que el 
ordenador pueda reconocerlo y repescarlo. Por 
ejemplo, LOAD «PROFESOR». 


MID$ (de MiDdle = en el medio). Para sacar ca- 
racteres de una cadena. Por ejemplo, MID$ 
(“PLOTTER”, 2,3) es LOT. En el Spectrum hay que 
omitir MID$ y escribir sólo PLOTTER (2 TO 4). En 
nuestro ejercicio, MID$ saca las primeras letras de 
los nombres metidos en el programa y las ordena. 


10 REM PROGRAMA PARA ORDENAR 
20 CLS:PRINT"INTRODUCE EL NUMERO DE NOMBRES PARA ORDENAR (MAX 30)" 
30 INPUT NM 

40 IF NM<1 OR NM >30 GOTO 20 

50 DIM MNS$ (NM) 

60 FOR I=1 TO NM 

70 PRINT"INTRODUCE EL NOMBRE NUMERO"; 13" (MAX 24 CARACTERES)" 

80 INPUT MN$(1) 

90 IF LEN(MN$(1))>24 GOTO 70 

100 NEXT 1 

110 FL=0 

120 FOR I=1 TO NM - 1 

130 FOR J=1 TO 24 

140 AS=MID$(MNS(1),J,1) :B$=MIDS (MNS (1+1),J,1) 


150 IF A$="" OR B$="" GOTO 205 ADA 

160 A=ASC(A$) :B=ASC(B4) 

170 IF B>A GOTO 205 ANA ; 

180 IF A=B THEN GOTO 205 

190 IF B<A THEN GOSUB 280 AN DRES 
195 GOTO 210 

200 NEXT J AUGUSTO 
205 NEXT 1 iz 
210 IF FL=1 GOTO 110 ha 
220 CLS gEAT R 
230 PRINT" *--- NOMBRES ORDENADOS ALFABETICAMENTE ---*":PRINT 

240 FOR I=1 TO NM 

250 PRINT" "MN CI) 

260 NEXT 1 

270 END 


280 S$=MN% (1) 

290 MN (1) =MN$ (I+1) 
300 MN$(I+1)=S$ 
310 FL=1 

320 RETURN 
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NEW (= nuevo). Manda al ordenador que borre 
de la memoria todo rastro de los programas 
que tenía anteriormente. Por este motivo se 
considera importante y se aconseja emplear 
NEW siempre antes de empezar a escribir un 
nuevo programa. 


uo AN: : 


NOT (=no). Cambia el valor de una variable 
lógica. Por ejemplo, si A es verdad, NOT A es 
falso, y al revés. En nuestro programa lo encon- 
tramos junto con AND. Sólo si (IF) la primera 
condición se cumple y (AND) no (NOT) la se- 
gunda, el ordenador irá a la línea indicada; en 
caso contrario proseguirá a la línea siguiente. 


REM PREGUNTAS-—RESPUESTAS EN BASIC 
DIM MD$(8,2) 
DATA "UNA CADENA ES UNA SECUENCIA DE CARACTERES ENTRE COMILLAS?","SI" 
DATA "LIST,SAVE,LOAD,NEW, NECESITAN EL NUMERO DE LINEA?", "NO" 
DATA "CUAL ES LA INSTRUCCION QUE VALE PARA REVISAR EL PROGRAMA?", "LIST" 
DATA "NEW ES LA ORDEN QUE BORRA TODA LA MEMORIA?","SI" 
DATA "CUAL ES LA INSTRUCCION QUE GENERA UN NUMERO?","RND" 
DATA "CUAL ES LA INSTRUCCION QUE ESCRIBE DIRECTAMENTE EN LA MEMORIA?","POKE" 
DATA "CUANTOS BYTES FORMAN UN K-BYTE?", "1024" 

DATA"SAVE ES UNA INSTRUCCION DE BASIC?","SI" 

FOR I=1 TO 8 

READ MD$(1,1),MD$ (1,2) 

NEXT 1 

D1=INT(RND*8+1) 

D2= INT (RNDx*8+1) 

IF Di=D2 GOTO 150 

PRINT"CONTESTA A LAS SIGUIENTES PREGUNTAS" 

PRINT:¿PRINT MD$(D1,1) 

PRINT:PRINT MD$(D2,1) 

PRINT: INPUT R1%,R2$ 

IF R1$=MD$(D1,2) AND R2$=MD$(D2,2) GOTO 250 

IF Ri$=MD$(D1,2) AND NOT RE$=MDS(D2,2)G0TO 240 

IF NOT Ri$=MD$(D1,2) AND R2$=MD$(D2,2)60T0 270 

IF NOT Ri$=MD$(D1,2) AND NOT R2$=MD$(D2,2)G0TO 280 
PRINT:PRINT"BIEN! HAS ACERTADO":GOTO 290 

PRINT:PRINT"HAS ACERTADO SCLO LA PRIMERA. PRUEBA OTRA VEZ":GOTO 180 
PRINT:PRINT"HAS ACERTADO SOLO LA SEGUNDA. PRUEBA OTRA VEZ":GOTO 180 
PRINT:PRINT"LAS DOS ESTAN EQUIVOCADAS. PRUEBA OTRA VEZ":GOTO 180 
PRINT:PRINT"QUIERES CONTESTAR OTRAS PREGUNTAS?" 

INPUT AS 

IF A$="SI"GOTO 140 

END 


ON GO TO (= en caso de que, vete a). Indica 
al ordenador que «salte» a una de las líneas in- 
dicadas en función de un parámetro. En nuestro 
ejemplo, el parámetro es C. Si C=1, el ordena- 

or va a la línea 140; si C=2, va a la línea 150; 
si C=3, va a la línea 160; si C=4, a la lí- 
nea 170. 


UN ORDENADOR ES SIEMPRE 
UNA CALCULADORA 


“Volved para atrás” este programa. Meted dos números y, en función de lo 
Arte queráis, el ordenador calculará la suma, la resta, la multiplicación o la di- 
visión. 


10 REM LA CALCULADORA 

20 CLS:PRINT" INTRODUCE EL PRIMER NUMERO" 

30 INPUT Ni 

40 PRINT:PRINT" INTRODUCE EL SEGUNDO NUMERO" 
50 INPUT N2 

60 CLS:PRINT"QUE OPERACION QUIERES?" :PRINT 


70 PRINT" PULSA 1 PARA SUMAR": PRINT 

80 PRINT" PULSA 2 PARA RESTAR": PRINT 

90 PRINT" PUL.SA 3 PARA MULTIPLICAR": PRINT 
100 PRINT" PULSA 4 PARA DIVIDIR": PRINT 


110 INPUT C 
120 PRINT 

130 ON C GOTO 150,160,170,180 
140 REM REALIZO LOS CALCULOS 


150 PRINT Ni¿" + "¿N23" = "¿Ni+N2:GOTO 190 
160 PRINT N1z" - "¿N23" = "¿Ni-N2:GOTO 190 
170 PRINT Niz" * "¿N23" = "¿Nix*N2:GOTO 190 
180 PRINT Niz" 3 “¿N23" = "¿Ni/N2:GOTO 190 


190 PRINT:PRINT"“QUIERES HACER OTRA OPERACION?" 
200 INPUT As 

210 IF A$="SI" GOTO 10 

220 END 
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ie isciimiciedo ón soto TOTT TITS 


ASÍ HA sipo 
CONSTRUIDO 
EL PROGRAMA 

DE LAS CUATRO 
OPERACIONES. 


OR (=0). Es una «conjunción» también en BA- 
SIC. Si (IF) se realiza una condición u (OR) otra, 
entonces (THEN) el ordenador hace algo; en 
caso contrario pasa a la línea siguiente. En resu- 
men, basta que sólo una de las condiciones 
puestas sea verdadera para que el ordenador 
cumpla la instrucción contenida en la línea. 


UN DISTRIBUIDOR 
AUTOMATICO 
DE MIMOS 


ADA y MARKO con este programa han 
transformado su ordenador en un distribui- 
dor automático de besos y caricias. OR se 
usa en las líneas que controlan las respuestas 
y en la línea en la que el ordenador decide si 
«distribuye» besos y caricias o no. 


REM BESOS Y CARICIAS SOLO A LOS AMIGOS 
20 PRINT"PLOTTER.TE GUSTA?" 

30 PRINT"RESPONDE SI O NO" 

40 INPUT As 

50 IF A$="SI" OR A$="NO" GOTO 70 


60 GOTO 30 
70 PRINT"PREFIERES A ADA Y A MARKO?" 
80 PRINT"RESPONDE SI O NO" Y 


90 INPUT Es 


100 IF B$="SI" OR B$="NO" GOTO 120 
110 GOTO 80 o 
120 PRINT"COMO TE LLAMAS? ESCRIBE TU NOMBRE" y n 


130 INPUT Ns 
140 IF A$="SI" OR B$="SI" GOTO 140 
150 PRINT“NO ME GUSTAS "¿NS$:END 


160 PRINT"1 BESO Y 1 CARICIA A "¿Ns 

170 FOR k=2 TO 20 o) 

180 PRINT Kz" BESOS Y "¿K¿" CARICIAS A "¿N$ Á) 
190 NEXT k Po) Y 
200 PRINT"ESPERO QUE SEAN SUFICIENTES “¿N$ A 

210 END 


PEEK (to peek=ver a través de una ranura). 
Permite leer directamente el contenido de una 
celdilla de memoria. Si, por ejemplo, con PRINT 
PEEK (1000) conseguimos 123, significa que en 
la celdilla de memoria número 1000 se en- 
cuentra el valor 123, que puede representar un 
dato o una instrucción. 


¿QUE SE ESCONDE EN LAS MEMORIAS? 


Con este programita podéis explorar las memorias de vuestro ordenador. En- 


contraréis celdillas vacías (valor 0) o valores comprendidos entre 1 y 255. Estos 
valores muestran letras, símbolos gráficos, números o instrucciones en «len- 


guaje máquina». 


REM LECTURA DE LA MEMORIA 
CLS:PRINT"ESTE PROGRAMA PERMITE LEER" 
PRINT"LA MEMORIA DE LA CALCULADORA": PRINT 
PRINT"DE CUANTOS K-BYTES ES LA MEMORIA DE TU CALCULADORA?" 
INPUT km : 
M=kKM*1024--1 
CLS:PRINT:PRINT" INTRODUCE LA DIRECCION INICIAL ENTRE O Y “¿mM 
INPUT S 
IF S<O OR S>M GOTO 70 
PRINT:PRINT" INTRODUCE LA DIRECCION FINAL ENTRE"¿S¿" Y “"¿M 
INPUT F 
IF F<S OR F3M GOTO 100 
IF FXS GOTO 100 
FOR I=S TO F 
PRINT"DIRECCION = “¿I¿" VALOR IN MEMORIA = ";¡PEEKCI) 
NEXT I 
PRINT:PRINT"DESEAS VER OTRA MEMORIA?" 
INPUT A$ 
IF A$="SI" GOTO 70 
END 


PLOT (= dibujar un trazo). Enciende en la panta- 
lla un punto luminoso de coordenadas X, Y. El 
color del punto está predeterminado por la ins- 
trucción COLOR seguida del número de código 
color. PLOT (y también COLOR) no es común a 
todos los ordenadores. Se utiliza para realizar 
gráficos, dibujos y obras de ordenador art. 


EN 
7 y » Ia 
ES 


60 COLOR y 


POKE (to poke = meter, introducir). Permite es- 
cribir directamente en una celdilla de memoria 
un valor (comprendido entre O y 255), que 
puede representar, en el código ASCII, un dato 
o una instrucción. Por ejemplo, POKE 15000,65 
coloca en la celdilla 15000 la letra A (65 es el 
código ASCII de A). 


«ESCRIBIR» EN LAS MEMORIAS 


Conociendo las direcciones (que dependen del plano de las memorias) y los 
valores exactos (siempre comprendidos entre O y 255), podréis hacer realizar 
al ordenador las cosas más variadas. Con POKE, por ejemplo, podréis crear 
música o dibujos en la pantalla. Yendo a ciegas os puede suceder de todo, 
hasta qe el ordenador se pare. No tengáis miedo. En caso de problemas, 
apagadlo y empezad de nuevo o pasad a otro programa. 


10 REM ESCRITURA EN LA MEMORIA 

20 CLS:¿PRINT:PRINT 

30 PRINT"CUANTAS K-BYTES DE MEMORIA TIENE TU ORDENADOR 7?" 

40 INPUT KB 

50) E=kB*1024-1 

60 PRINT"INTRODUCE EL LUGAR EN QUE QUIERES ESCRIBIR ENTRE O Y "¿BE 
70 INPUT L 

30 IF L<O OR L>B GOTO 640 

90 PRINT"INTRODUCE EL VALOR QUE QUIERES PONER EN LA DIRECCION "¿L 
100 PRINT"COMPRENDIDO ENTRE O Y 255" 

110 INPUT Y 

120 IF Y<O OR V>255 GOTO 90D 

130 POKE L,V 

140 END 


PRINT (= imprime). Indica al ordenador que «es- 
criba» en la pantalla palabras, números, resulta- 
dos de operaciones y de ecuaciones. Después 
de esta instrucción el ordenador imprime lo 
que le mandes. PRINT puede visualizar también 
el contenido de variables numéricas (A, B, etc.) 
y de variables de caracteres (A$, B$, etc.). 


UN TRIANGULO CONTROVERTIDO 


Unos dicen que ya lo conocían los árabes. Otros atribuyen el 
descubrimiento al italiano Tartaglia y otros al francés Pascal. 
Es un triángulo formado por números con propiedades singu- 
lares. Con este programita podréis crearlo y estudiarlo con el 
ordenador. 


10 REM EL TRIANGULO TARTAGLIA 

20 PRINT"CUANTAS LINEAS QUIERES?" 

30 INPUT ON 

40 DIM P(N,N> 

30 P(1,1)=1 

560 REM IMPRIME EL PRIMER ELEMENTO 

70 PRINT:PRINT 1 

30 FOR 2 TO N 

S0 P(Kk,1)=1 

100 REM LA PRIMERA COLUMNA = 1 

110 PRINT P(k,13; 

120 FOR J= TO 

130 REM PREPARO EL RESTO DE LOS ELEMENTOS 
140 PK, JSP UK-1,5 3) +P1K=1 3-1) 

150 PRINT P(K,JÍ 

160 NEXT 

170) PRINT 

180 NEXT OK 

190 END 


REM (de REMark = anotar). Después de REM se 

pueden introducir comentarios para quien escri- 
e o lee el programa. Cuando el programa está 

pa si el ordenador encuentra REM, no 
ace nada y pasa a la línea siguiente. 


LOS NUMEROS PERFECTOS 


Se llama «número perfecto» al número que es igual a la 
suma de todos sus divisores. Por ejemplo, 6 es un número 
perfecto, porque sus divisores, 3, 2 y 1 suman 6. He aquí un 
programa que busca los números perfectos entre 1 y N. 


10 REM LOS NUMEROS PERFECTOS 

20 REM 1 ES EL MENOR DE LOS NUMEROS PERFECTOS 
30 CLS:PRINT" INTRODUCE EL NUMERO HASTA EL QUE HAY QUE EUSCAR" 
40 INPUT N 


NO OS 


50 FOR K=1 TO N ENFADÉ¡S 

60 REM PONGO S=1 7 . Pa 
70 S=1 SI 0S EQUIVOCA'Í¡S. 
80 REM CALCULO K/2 PERFECTOS 

90 D=INT(K/2) , 

100 FOR J=2 TO D SOLO SON 

110 REM BUSCO LOS DIVISORES DE K ESTOS 


120 1F KR/J<>INT(R/J) GOTO 150 

130 REM SI J ES UN DIVISOR, LO SUMO 

140 S5=5+,J 

150 NEXT J 

160 REM SI K<>S ENTONCES NO ES PERFECTO 
170 IF Kk<>5 GOTO 210 

180 REM IMPRIMO EL. NUMERO K 

190 PRINT"“NUMERO PERFECTO :"¿K 

200 REM IMPRIMO UN MENSAJE 

210 IF K/10=INT(K/10) THEN PRINT"ESTOY CALCULANDO" 
220 REM CONSIDERO EL NUMERO SIGUIENTE 
230 NEXT Kk 

240 REM EL PROGRAMA SE ACABO 

250 END 


NÚMEROS. 


RETURN (regreso). Es una instrucción BASIC 
que se usa sólo para que el ordenador vuelva 
e un subprograma al programa principal. En 
este libro lo hemos usado en el juego del NIM 
(ved GO SUB). 


LATECLA 
RETURN ES 


OTRA COSA. 


¡OJO CON LA TECLA RETURN! 


La tecla RETURN equivale a algo así como a empezar desde 
el principio en las máquinas de escribir. En algunos ordena- 
dores, en lugar de RETURN existe la tecla ENTER, ENTREE o 
simplemente una flecha. Pero es una tecla importantísima en 
todos los ordenadores. Sólo cuando hayáis pulsado RETURN 
(o la tecla equivalente), el ordenador realizará la orden que 
le habéis dado. 

Es indispensable también mientras escribís un programa. 
Cada vez que escribís una línea, acordaos de pulsar siempre 
RETURN para empezar de nuevo. De lo contrario, cuando 
volváis para atrás el programa, el ordenador os indicará que 
hay un error. 
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RIGHTS (= derecha). Indica al ordenador que 
saque la parte más a la derecha de una cadena 
de caracteres. Si P$=“ADA”, RIGHTS (P$,2) es 
“DA”. En el Spectrum RIGHTS se omite y debe- 
remos escribir P$ (2 TO 3). En el ejemplo de 
abajo, con RIGHTS se saca la parte más a la de- 
recha de la palabra para obtener el anagrama. 


LOS ANAGRAMAS 


Sacar el anagrama quiere decir intercambiar las letras de to- » 
das las formas posibles para hacer otras palabras. Con este 
programita, limitado a las palabras de tres letras, el ordena- 
dor lo hará automáticamente. 


10 REM ANAGRAMAS DE CUNA PALABRA DE TRES LETRAS 

20 DIM ASC 

30 CLS+PRINT"INTRODUCE LUNA PALABRA DE TRES LETRAS" 
40 INPUT Pg 

50 REM METO LAS LETRAS EN LOS 
60 PRINT 

70 FOR K=1 TO 3 

30 A$(K)=LEFT+$(P$,1> 

90 P$=RIGHTS (PS, 3-K) 

100 NEXT K 

110 REM ANAGRAMA 

120 FOR K=1 TO 3 

130 FOR I=1 TO 3 

140 IF I=k GOTO 170 

150 Juó6-(K+T> 

160 PRINT AS (Ko ¡As (1) ARI 
170 NEXT 1 

180 NEXT OK 

190 END 


ELEMENTOS DE AS 


RND (de random = aleatorio). Indica al ordena- 
dor que genere un número cualquiera. El nú- 
mero que salga tiene que estar comprendido 
entre O y 1. Por este motivo, para conseguir 
números aleatorios enteros hay que usar tam- 
bién la función INT, y multiplicar RND por valo- 
res enteros. 


¿QUEREIS 
UN ORDENADOR-PROFESOR? 


Con este programita el ordenador se con- 
vierte en un profesor de matemáticas, que 
os preguntará la tabla del 1 al 9. Probaalo, 
aunque sepáis bien la tabla. 


PABELAS" 


10 PRINT"APRENDEMOS LAS 
0 CLS 

30 X= INT (RNADx* (9413) 

40 Y=1INT CRID* (4100 

50 PRINT"“DIME EL. PRODUCTO DE 
60 PRINT¿PRINT X,Y 

70 PRINT:< INPLT OP 

380 IF P=X*Y GOTO 110 

90 PRINT:PRINT"RESPUESTA EGUIVOCADA . 
100 GOTO 70 

110 PRINT:¿PRINTUR 
115 PRINT: "QUIE 
120 INPIJT AS 
130 IF Até="SI" 
140 END 


LOS NUMEROS 


STA EXACTA." 
NO 


Y E 
A 


GOTO 20 


PRUEBA OTRA Y 
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PREFERÍS UN 
ORDENADOR QUE 
OS SUGIERA... 


ASÍ HA SIDO 

"CONSTRUIDO" 
EL PROGRAMA 
APRENDAMOS 

LA TABLA 


RANDOMIZE (o RANDOM) 


Pocos ordenadores dan los números aleatorios sólo con 
RND. Pues, efectivamente, en cada vuelta del programa 
pescan de sus celdillas de memoria siempre las mismas se- 
cuencias de números. Para conseguir secuencias realmente 
distintas hay que anteponer RANDOMIZE o RANDOM, de- 
pende del «dialecto» que hable vuestro ordenador. 


RUN (= arranca). Es la orden por la que arranca 
el programa. Cuando hayáis terminado un pro- 
rama, O lo hayáis metido en la memoria, escri- 
id RUN y pulsad RETURN. Si todo está bien, 
el programa «arrancará». 


SAVE (to save = salvar, conservar). Manda al or- 
denador que «salve» el programa en un casset- 
te del registrador o en los discos o en las cin- 
tas. Después de SAVE hay que colocar el nom- 
bre del programa para poder reconocerlo entre 
muchos otros, cuando queramos usarlo de 
nuevo. 


SQR. Calcula la raíz cuadrada de los números 
positivos. Por ejemplo, SQR(4) es 2. 


PROBLEMITA 


Dados los lados de un triángulo cualquiera 
ABC, hallar el área del círculo inscrito y del 
círculo circunscrito. He aquí el programa para 
resolverlo de una vez para siempre. 


GEOMETRIA 
SELF 
SERVICE, 


¿EH? 


10 REM PROPIEDADES GEOMETRICAS DE UN TRIANGULO 

20 CLS:PRINT "INTRODUCE LAS MEDIDAS DE LOS LADOS" 
30 INPUT A,B,C 
40 P=3,14159 
S= (A+B+C)/2 
60 A1=SOR (3 (5-4) (SE) (5-03) 

70 PRINT:¡PRINT "AREA DEL TRIANGULO = "¡Al 

380 Ri=a41/S5 

90 AZ=PR1C 2 

100 PRINT¿PRINT "AREA DEL CIRCULO MAXIMO INSCRITO = "¿Az 
110 R2=a*rBx*C/ (4*41) 

120 A3=PARZCZ 

130 PRINT¿PRINT"AREA DEL CÍRCULO MINIMO CIRCUNSCRITO = "¿43 
140 END 


$9 


STR$ (de STRing = cadena). Indica al ordena- 
dor que trate un valor numérico como cade- 
na. STR$ (51) es “51”. 


LAS EQUIVALENCIAS 


¿Cuántas veces en el colegio tuvisteis que hacer las equivalencias? Ahora 
con este programita os las puede hacer el ordenador. Podréis introducir 
cualquier medida de peso y el ordenador, usando STR$ y VAL, sacará de 


las cadenas los valores numéricos esenciales y realizará las equivalencias 
por vosotros. 


51.000 GRAMOS 
540 HECTOGRAMOS 
0,51 QUINTALES 


a TONELADAS 


VAL (de value = valor). Indica al ordenador 
que trate como valores numéricos los núme- 
ros escritos como cadenas. Por ejemplo, si 
A$="51”, VAL (A$) es el número 51. VAL es 
la función inversa de STR$. 


REM LAS EQUIVALENCIAS 
CL.S 
PRINT:¿PRINT" INTRODUCE UNA MEDIDA DE PESO" 
INPUT As 
N=VYAL (A$) 
N$=STR$ (N) 
L=LEN (Ns) 
M=LEN (A$) 
A$=RIGHTS (AGS, M=L0 
AS=LEFTS(AS, 3) 
IF A$="GRA" THEN N=N*1:GOTO 170 
IF AS="HEC " THEN N=NM*100:GO0TO 170 
IF A$="KIL" THEN N=N*1000:G0TO 170 
IF A$="QUI" THEN N=N*100000!:GOTO 170 
IF A$="TON" THEN N=Hx*1E+06:G0TO 170 
PRINT¿PRINT"NC CONOZCO ESTA UNIDAD DE MEDIDA":GOTO 30 
PRINT:PRINT"EN QUE UNIDADES QUIERES GUE SE EXPRESE EL RESULTADO?" 
INPUT Bs 
BS=LEFTS (BS, 3) 
IF B$="GRA" THEN N=N/1:1C%="GRAMOS "¿GOTO 260 
IF B$="HEC" THEN N=N/100:C$="HECTOGRAMOS "¿GOTO 260 
IF Bs$="KIL" THEN N=N/1000:C$="KILOGRAMOS":GOTO 260 
IF B$="QUI" THEN N=N/100000!:1C$="GUINTALES":GOTO 260 
IF B$="TON" THEN N=N/1E+06:C$="TONELADAS":GOTO 260 
PRINT¿PRINT"NO CONOZCO ESTA UNIDAD DE MEDIDA":GOTO 170 
PRINT:¿PRINT"EL RESULTADO EXPRESADO EN "5C$3" ES:"¿ N 
PRINT:PRINT:PRINT"DESEAS OTRA EQUIVALENCIA?" 
INPUT R$ 
IF R$="SI" GOTO 20 


COMO SE USA 
ESTE LIBRO 


EN PRIMER LUGAR 
SE HOJEA Y SE LEE. 
DESCUBRIREIS QUE EL 


BASIC NO ES UNA LENGUA 
TAN DIFÍCIL. 


LUEGO CONSEGUID UN 
ORDENADOR, CUALQUIER 
ORDENADOR, EL VUESTRO, 


EL DE PAPA, EL DEL 
COLEGIO, EL DEL AMIGO.. 


3 RESUELTO EL PROBLEMA 
DEL ORDENADOR, COPÍAD 
(M0 LOS "PROGRAMITAS” 
DELLIBRO EMPEZANDO POR 
LOS MAS BONITOS. 


CUANDO COPIAIS UN 
EJERCICIO, RECORDAD 
O) SIEMPRE QUE AL FÍNAL 


DE CADA LÍNEA HAY QUÉ PULSAR 


RETURN(+o. 53). 


EN CAMBIO, PARA QUE 'ARRANQUE 
EL PROGRAMA, TENEIS QUE ESCRIBIR 


RUN (rAc.57) y Luco 


RETURN. 


UFI 


[NO FUNCIONA! 


S| APARECE UN MENSAJE 
DE ERROR, ESCRIBID 


LOSY(++<. 40) PARA RECLAMAR 


LA LÍNEA EQUIVOCADA O TOD 
EL PROGRAMA. 


CORREGID LAS LINEAS 
EQUIVOCADAS, ESCRIBID 
DE NUEVO RUN, PULSAD 


RETURN Y... POR FÍN EL 
GR Ji 


a LE 


EN ESTE LIBRO LAS 
"PALABRAS" DE BASIC 

ESTÁN COLOCADAS EN 
ORDEN ALFABETICO PARA 
FORMAR UN BUEN 
DICCIONARIO. 


DE ESTA FORMA, 
CUANDO ENCONTREÍS 
UNA INSTRUCCION O UN 
VOCABLO QUE NO CONOCEIS, 
PODEIS HALLARLO FACILMENT 
EN EL"DICCIONARIO" O EN EL 


INDICE ANALÍTICO (PAG.64), 


Ss] ALGÚN PROGRAMA 
INSISTE EN SER PRO- 
O BLEMA, AYUDAOS CON 
EL MANUAL DE VUESTRO 
ORDENADOR. PUEDE HABER 
PEQUEÑAS DIFERENCIAS 
ENTRE EL "DIALECTO BASIC" 
DE VUESTRO ORDENADOR Y 
EL DE NUESTROS PROGRAMAS. 
UNA COMPARACION SERA UTIL. 


NuAL DE BAsic 


MA 


¿o 


ALGUNOS PROGRAMAS VAN ACOM- 
PAÑADOS DE SUS "DIAGRAMAS DE 
FLUJO. ESTOS ESQUEMAS LLEVAN 
SOLO LOS PASAJES LOGICOS FUN- 
DAMENTALES, LOS "PRINT” Y LOS 
"REM" NO ESTÁN REPRESENTADOS. 


CONFRONTANDOLOS CON LOS 
PROGRAMAS, APRENDERÉEIS A 


PROGR AR. 


HAY "EJERCICIOS" 
PARA TODOS LOS 
GUSTOS. ALGUNOS 
SON “ESCOLARES”, OTROS 
SON JUEGOS DIVERTIDOS. 
PODEÍS "SALVAR" LOS QUE 
MAS OS GUSTEN 


CON SAVE (PAG.58) Y 


COMENZAR ASÍ VUESTRA 
BIBLIOTECA DE PROGRAMAS. 


ES RESUMEN, Si EMPLEA¡S 
BIiEN ESTE LIBRO, AL FINAL 
SABREIS BASTANTE BASIC 
Y OS ENVÍDIARA PAPA. 
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INDICE ANALITICO 


AND, 15 

ASC, 16 

ASCII, 16 

BASIC, 5 

Cadena, 9 

Celdillas de memoria, 11 
CHR$, 17 

CLS, 18 

COLOR, 18 

Coma (,), 10 

Comillas (“), 9 
Coristantes, 9 
Contaminación, 35 
DATA, 19 

DEF FN, 20 

Diagramas de flujo, 14 
DIM, 21 

Dos puntos (:), 10 

El juego del NIM, 27 
ELSE, 34 

END, 22 

ENTER, 53 

ENTREE, 53 

Euclides, 22 

Flow chart, 14 
FOR/TO/NEXT, 23 
FOR/TO/NEXT/STEP, 25 
Gauss Karl Friedrich, 23 
GO SUB, 27 

GO TO, 29 

Hacedlo vosotros, 32, 33 
HOME, 18 

IF/GOTO, 31 

IF/THEN, 31 

INPUT, 35D 
Instrucción, 9 

INT, 36 F 

LEFTS, 37 

LEN, 38 

LET, 39 


Línea, 8, 9 

LIST, 40 

LOAD, 41 

Los números romanos, 37 
Memorias, 11 

MIDS, 42 

NEW, 43 

NEXT, 23, 25 

NOT, 44 

ON GO TO, 45 

OR, 47 

PEEK, 48 

PLOT, 49 

POKE, 50 

PRINT, 51 

PRINT “Shift CHR HOME” 
Punto (.), 10 

Punto y coma (;), 10 
Puntuación BASIC, 10 
RAM, 11 

RANDOM, 56 
RANDOMIZE, 56 

READ, 19 

REM, 52 

RESTORE, 19 

RETURN, 53 

RIGHTS, 54 

RND, 55 

ROM, 11 

RUN, 57 

SAVE, 58 

SCR, 43 

Signo de división (/), 10 
Signo de mayor que (>), 10 
Signo de menor que (<), 10 
STEP, 25 

STR$, 60 

VAL, 61 

Videojuegos, 18 


e sois 
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En este libro, Ada y Marko, en compañía del perrito Plotter y de un or- 
denador personal, alegre y atento, emprenden el viaje coloreado y di- 
vertido a través de la informática que habían empezado en Mi primer 
libro sobre ordenadores, del mismo autor, Luca Novell. : 


El BASIC es un lenguaje inventado por los informáticos para indicar al 
orr or lo que debe hacer; en otras palabras, para escribir «progra- 
autor lo ha transformado en un gran juego, fascinante y diver- 
us: programa normal BASIC se convierte de esta forma en un va- 
nto «iu=go0 de la oca», en el que se pueden recorrer itinerarios len- 
tos o rápidos, atajos astutos, idas y vueltas extenuantes y pasos rápidos, 
envueltos en insidiosas trampas (los famosos «bug» o errores: de pro- 
gramación). 


El libro es un buen diccionario de BASIC, y para cada vocablo hay un 
programa o un juego. Es una invitación a los jóvenes y a los más 
pequeños para que sean creativos con el ordenador en casa y en el colegio. 
Y es también una invitación a todos los que deseen introducirse en el 
“mundo de la programación y de los «lenguajes» para hablar con el ordena- 
dor. Es un libro que se puede leer de un tirón, pero en particular es un 
amigo que se debe tener cerca del ordenador para «aprender haciendo». 


Luca Novelli, popular autor italiano de historietas ilustradas y de tiras de comics, desde 
1977 escribe e ilustra llbros de divulgación científica para niños. 


TTITIAON VINI -DISVA PP 01qy sownd y 


